home *** CD-ROM | disk | FTP | other *** search
/ PC Media 15 / PC MEDIA CD15.iso / cddemo / cddemo.exe / ATLAS.DXR / 00001.ls next >
Encoding:
Text File  |  1996-01-27  |  450 b   |  23 lines
  1. on exitFrame
  2.   global puntero, lista
  3.   puppetSound(0)
  4.   set puntero to puntero + 1
  5.   if puntero > 8 then
  6.     set puntero to 1
  7.   end if
  8.   set encontrado to 0
  9.   repeat while encontrado = 0
  10.     set cual to getAt(lista, puntero)
  11.     if cual <> EMPTY then
  12.       set encontrado to 1
  13.       next repeat
  14.     end if
  15.     set encontrado to 0
  16.     set puntero to puntero + 1
  17.     if puntero > 8 then
  18.       set puntero to 1
  19.     end if
  20.   end repeat
  21.   go(1, cual)
  22. end
  23.